function result=NewpnnPredication(x,y,spread)
yn = textread(y);
xite = textread(x);
spread=0.1;%SPREAD - Spread of radial basis functions, default = 0.1

col=13;

P=yn(:,1:col );     
T=yn(:,5+col);   
Pt=xite(:,1:col );


T=T+1000;
input_train=P'; 
output_train=ind2vec(T); 
input_test=Pt'; 
net=newpnn(input_train,output_train,spread);
output=sim(net,input_test);
output_test=vec2ind(output);
result=(output_test-1000)';